當程式越寫越大，或者程式要執行時間較久時，總要透過的地方呈現目前程式狀態，而Excel常用的就是透過狀態列來顯示目前進度。以下程式為展示如何使用狀態列來顯示狀態文字。

Sub Day12()
    '設定狀態列的文字
    '將現在的狀態列文字複製到stb，狀態列是否顯示複製到dstb
    '狀態列於「就緒」狀態時，StatusBar屬性傳回 False
    stb = Application.StatusBar
    dstb = Application.DisplayStatusBar
    
    '變更狀態列顯示文字
    Application.StatusBar = "執行中...請稍後..."
    
    '主程式放在這裡
    
    '主程式執行完後
    '將兩個屬性帶回系統
    Application.DisplayStatusBar = dstb
    Application.StatusBar = stb
End Sub

由程式中我們可得知，最主要的方法是透過Application.StatusBar來呈現狀態列文字，我們可透過以上程式，將現有已撰寫的程式套上上述的頭尾程式，中間於每個執行階段夾雜Application.StatusBar方法來提醒程式執行進度，讓操作人員得知還需要等待多久時間，您的程式也會更趨於完美。